1 CLS:POKE16452,PEEK(16452)OR128:K=3:PRINT$1,5,CHR$(2)"***PRIMO-foci***"CHR$(18):PRINT$3,0,STRING$(41,45):PRINT$6,2,"Bal kapus":PRINT$6,28,"Jobb kapus":PRINT$7,3,"Fel:A":PRINT$8,3,"Le :Y":PRINT$7,29,"Fel:":PRINT$8,29,"Le :"
65 GOTO500
70 CLS:PRINTCHR$(1):FORI=3TO255:SET(I,1):SET(I,191):NEXT:FORI=1TO55:SET(3,I):SET(252,I):NEXT
90 FORI=143TO191:SET(3,I):SET(252,I):NEXT
100 U=0
110 S=4:W=10
120 N=1
130 PRINTCHR$(6)
140 H=1
150 RANDOM
160 U=U+H
170 C=C+N
180 PRINT$S,40,CHR$(138)
190 PRINT$W,0,CHR$(138)
200 PRINT$C1,U1," "
210 PRINT$C,U,"o"
220 U1=U
230 C1=C
235 FORI=0TOM:NEXT
240 IF(C=WANDU=0)OR(C=SANDU=40)THENH=-H:GOTO160
250 IFU>=40ORU<=0THENH=-H
260 IFC>=14ORC<=0THENN=-N
270 FORI=0TO5:F$=INKEY$:IFF$=""THENNEXT
275 IFF$="A"ANDNOT(W=4)THENPRINT$W,0," ";:W=W-1
290 IFF$="Y"ANDNOT(W=10)THENPRINT$W,0," ";:W=W+1
300 IFF$=""ANDNOT(S=4)THENPRINT$S,40," ";:S=S-1
310 IFF$=""ANDNOT(S=10)THENPRINT$S,40," ";:S=S+1
320 IFC>=4ANDC<=10AND(U=0ORU=40)THENPRINT$C,U," ";:GOTO340
330 GOTO160
340 IFU>20THENE=E+1ELSER=R+1
350 PRINT$0,0,E":"R;CHR$(18)
360 IFE=10ORR=10THEN410
370 IFINKEY$=""THEN370
380 C=FIX(RND(0)*13+1):IFRND(0)>0.25THENH=2*SGN(H)
390 GOTO160
400 CLS:PRINT$8,5,"Remlem jl szrakoztatok":GOTO470
410 FORI=0TO1000:NEXT
420 CLS:PRINT"Jtszotok mg?"
430 F$=INKEY$:IFF$=""THEN430
440 IFF$="N"THEN400
450 IFF$="I"THENRUN65
470 GOTO430
500 PRINT$13,0,"";: INPUT"Milyen kategriban jtszotok (1..5)";M
510 IFM<1ORM>5THEN500
520 IFM=2THENM=10
530 IFM=3THENM=20
540 IFM=4THENM=40
550 IFM=5THENM=60
560 GOTO70
